object Main: TMain
  Left = 193
  Top = 119
  Caption = 'Main'
  ClientHeight = 493
  ClientWidth = 765
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  TextHeight = 13
  object SceneViewer: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 765
    Height = 493
    Camera = Camera
    FieldOfView = 157.067413330078100000
    PenAsTouch = False
    Align = alClient
    OnMouseMove = SceneViewerMouseMove
    TabOrder = 0
  end
  object Scene: TGLScene
    Left = 330
    Top = 106
    object ProjectedTextures: TGLProjectedTextures
      Emitters = <
        item
          Emitter = FlashLightTE
        end>
      Style = ptsOriginal
      object Light0: TGLLightSource
        ConstAttenuation = 2.000000000000000000
        Position.Coordinates = {000000000000803F000000000000803F}
        SpotCutOff = 180.000000000000000000
      end
      object Cube1: TGLCube
        Material.MaterialLibrary = MaterialLibrary
        Material.LibMaterialName = 'ceiling'
        Position.Coordinates = {000080BF9A99993E0000C0BF0000803F}
        CubeSize = {9A99993E9A99993E9A99993E}
      end
      object Room: TGLDummyCube
        CubeSize = 1.000000000000000000
        object WallLeft: TGLPlane
          Material.MaterialLibrary = MaterialLibrary
          Material.LibMaterialName = 'wall1'
          Direction.Coordinates = {0000803F000000000000000000000000}
          Position.Coordinates = {0000C0BF0000403F000000000000803F}
          Up.Coordinates = {00000000FFFF7F3F0000008000000000}
          Height = 1.500000000000000000
          Width = 4.000000000000000000
        end
        object WallFront: TGLPlane
          Material.MaterialLibrary = MaterialLibrary
          Material.LibMaterialName = 'wall1'
          Position.Coordinates = {000000000000403F000000C00000803F}
          Up.Coordinates = {00000000FFFF7F3F0000008000000000}
          Height = 1.500000000000000000
          Width = 3.000000000000000000
        end
        object WallRight: TGLPlane
          Material.MaterialLibrary = MaterialLibrary
          Material.LibMaterialName = 'wall2'
          Direction.Coordinates = {000080BF000000000000000000000000}
          Position.Coordinates = {0000C03F0000403F000000000000803F}
          Up.Coordinates = {00000000FFFF7F3F0000000000000000}
          Height = 1.500000000000000000
          Width = 4.000000000000000000
          XTiles = 4
        end
        object Floor: TGLPlane
          Material.MaterialLibrary = MaterialLibrary
          Material.LibMaterialName = 'floor'
          Direction.Coordinates = {000000000000803F0000000000000000}
          Up.Coordinates = {0000000000000000000080BF00000000}
          Height = 4.000000000000000000
          Width = 3.000000000000000000
          XTiles = 5
          YTiles = 5
        end
        object Ceiling: TGLPlane
          Material.MaterialLibrary = MaterialLibrary
          Material.LibMaterialName = 'ceiling'
          Direction.Coordinates = {00000000000080BF0000000000000000}
          Position.Coordinates = {000000000000C03F000000000000803F}
          Up.Coordinates = {0000000000000000000080BF00000000}
          Height = 4.000000000000000000
          Width = 3.000000000000000000
          XTiles = 2
          YTiles = 2
        end
      end
      object FlashLight: TGLDummyCube
        CubeSize = 1.000000000000000000
        object FlashLightTE: TGLTextureEmitter
          Material.MaterialLibrary = MaterialLibrary
          Material.LibMaterialName = 'flashlight'
          FOVy = 90.000000000000000000
          Aspect = 1.000000000000000000
        end
      end
    end
    object Camera: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      Position.Coordinates = {000000000000003F000000000000803F}
    end
  end
  object MaterialLibrary: TGLMaterialLibrary
    Materials = <
      item
        Name = 'flashlight'
        Tag = 0
        Material.BlendingMode = bmModulate
        Material.Texture.ImageClassName = 'TGLPicFileImage'
        Material.Texture.Image.PictureFileName = 'flashlight.jpg'
        Material.Texture.ImageBrightness = 0.600000023841857900
        Material.Texture.MinFilter = miLinear
        Material.Texture.TextureWrap = twNone
        Material.Texture.Disabled = False
        TextureScale.Coordinates = {CDCCCC3DCDCCCC3D0000803F00000000}
      end
      item
        Name = 'wall1'
        Tag = 0
        Material.Texture.ImageClassName = 'TGLPicFileImage'
        Material.Texture.Image.PictureFileName = 'wall1.jpg'
        Material.Texture.Disabled = False
      end
      item
        Name = 'wall2'
        Tag = 0
        Material.Texture.ImageClassName = 'TGLPicFileImage'
        Material.Texture.Image.PictureFileName = 'wall2.jpg'
        Material.Texture.Disabled = False
      end
      item
        Name = 'floor'
        Tag = 0
        Material.Texture.ImageClassName = 'TGLPicFileImage'
        Material.Texture.Image.PictureFileName = 'floor.jpg'
        Material.Texture.Disabled = False
      end
      item
        Name = 'ceiling'
        Tag = 0
        Material.Texture.ImageClassName = 'TGLPicFileImage'
        Material.Texture.Image.PictureFileName = 'ceiling.jpg'
        Material.Texture.Disabled = False
      end>
    Left = 264
    Top = 296
  end
  object Cadencer: TGLCadencer
    Scene = Scene
    OnProgress = CadencerProgress
    Left = 330
    Top = 226
  end
end
